home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / masterword.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  82 lines
  1. 50 REM**BASED ON THE PROGRAM 'JOTTO' BY  JIM BUTTERFIELD
  2. 55 REM**GRAPHIC LAYOUT,KEYBOARD INPUT & OTHER MODIFICATIONS BY ROGER D BURGE
  3. 60 REM**#2667, TORONTO PET USERS GROUP, CANADA
  4. 100 SC=1024:YC=214:XC=211:LL=40:SL=5
  5. 110 POKE53281,.:POKE53280,3
  6. 120 PRINT"[147]             MASTERWORD  64             "
  7. 130 PRINT" BY JIM BUTTERFIELD WITH ROGER D. BURGE
  8. 140 [153]" TRY TO GUESS THE MYSTERY 5 LETTER WORD.";
  9. 150 [153]"YOU MUST GUESS ONLY REAL 5 LETTER WORDS.
  10. 160 PRINT" YOU WILL BE TOLD THE NUMBER OF LETTERS IN YOUR GUESS THAT ARE IN THE ";
  11. 170 PRINT"SECRET    WORD.
  12. 180 [153]" IF YOU GIVE UP ON A WORD YOU LOSE 1000 POINTS.
  13. 190 PRINT"HINT: THE TRICK IS TO VARY SLIGHTLY FROMONE GUESS TO THE NEXT.
  14. 200 [153]"           OPEN PRESS F1 TO PLAY ":[151]198,.
  15. 210 [161]A$:[139]A$[179][177]"INPUT"[167]210
  16. 220 [131]BXBSF,IPCCZ,DBDIF,ESFBE,PGGBM
  17. 230 [131]HPSHF,IBUDI,DJWJM,KPMMZ,LBZBL
  18. 240 [131]SBKBI,MFWFM,NJNJD,BOOFY,QJQFS
  19. 250 [131]RVFTU,SJWFS,QSFTT,PUUFS,FWFOU
  20. 260 [131]XFBWF,FYUPM,NVTIZ,AFCSB,GJAAZ
  21. 270 [131]UIJDL,ESVOL,GMPPE,UJHFS,GBLFS
  22. 280 [131]CPPUI,MZJOH,TRVBU,HBVAF,PXJOH
  23. 290 [131]UISFF,TJHIU,BYMFT,HBVAF,PXJOH
  24. 300 [131]RVBSU,DSFFQ,CFMDI,QSFTT,TQBSL
  25. 310 [131]SBEBS,SVSBM,TNFMM,GSPXO,ESJGU
  26. 320 [131]TLJSU,VPSTF,LOJGF,QVQQZ,LJUUZ
  27. 330 [131]DIJME,TVSMZ,CZUFT,IVNBO,GMFFU
  28. 340 N[178]60:R[178]1:[134]N$(N),Z(5),Y(5)
  29. 350 [129]J[178]1[164]N:[135]N$(J):[130]
  30. 360 [151]53280,1:[153]"LOAD
  31. 370 G$="GUESS #":W$="WORD #"
  32. 380 AN$="":C6$=AN$+""
  33. 390 M$="MATCHES:"
  34. 400 S$="SCORE:"
  35. 410 PRINT"I HAVE MY SECRET WORD":PRINT"REMEMBER, GUESS ONLY REAL 5 LETTER WORDS
  36. 420 [153]"    PRESS _ TO QUIT AND ^ TO GIVE UP    "
  37. 430 [129]T[178].[164]2:[153]"CMDSAVESAVE":[151]218,132:[130]
  38. 440 [153]G$;G;W$;R;M$;H;S$;SS
  39. 450 [153]"             MASTERWORD  64             "
  40. 460 X[178][187]([171]TI)
  41. 470 G[178].:N$[178]N$([187](1)[172]N[170]1)
  42. 480 [153]C6$;"                              "
  43. 490 G[178]G[170]1:[153]G$;G:[153]AN$;"    ":[141]730
  44. 500 [139][195](IN$)[179][177]5[167][153]C6$;"SYSYOU MUST GUESS A 5 LETTER WORD":[137]490
  45. 510 [153]C6$;"                              "
  46. 520 V[178].:H[178]V:M[178]H
  47. 530 [129]J[178]1[164]5
  48. 540 Z[178][198]([202](IN$,J,1)):Y[178][198]([202](N$,J,1))[171]1:[139]Y[178]64[167]Y[178]90
  49. 550 [139]Z[178]65[176]Z[178]69[176]Z[178]73[176]Z[178]79[176]Z[178]85[176]Z[178]89[167]V[178]V[170]1
  50. 560 [139]Z[178]Y[167]M[178]M[170]1
  51. 570 Z(J)[178]Z:Y(J)[178]Y:[130]J
  52. 580 [139]M[178]5[167]660
  53. 590 [139]V[178].[176]V[178]5[167][153]C6$;"SYSWHAT KIND OF WORD IS THAT?    ":[129]T[178]1[164]2000:[130]:[137]480
  54. 600 [129]J[178]1[164]5:Y[178]Y(J)
  55. 610 [129]K[178]1[164]5:[139]Y[178]Z(K)[167]H[178]H[170]1:Z(K)[178].:[137]630
  56. 620 [130]K
  57. 630 [130]J
  58. 640 [153]M$;H
  59. 650 [137]480
  60. 660 [153]C6$"SYS YOU WIN!!! WAIT                  ":[151]53280,7:SS[178]SS[170]1000[171]G:R[178]R[170]1
  61. 670 [153]S$;SS;M$;5
  62. 680 [153]"SYS   PRESS F1 TO PLAY AGAIN, _ TO QUIT.   ":[151]198,.
  63. 690 [129]T[178]1984[164]2023:[151]T,32:[130]
  64. 700 [161]A$:[139]A$[178]"INPUT"[167][141]860:[137]360
  65. 710 [139]A$[178]"_"[167]870
  66. 720 [137]700
  67. 730 [151]198,.:IN$[178]"":[153]AN$;
  68. 740 CU[178]SC[170][194](XC)[170][194](YC)[172]LL:[151]CU,32[176]128:[151]CU[170]54272,1
  69. 750 [161]I$:[139]I$[178]""[167]750
  70. 760 [151]CU,[194](CU)[171]128:I[178][198](I$)
  71. 770 [139]I[178]13[175][195](IN$)[167][142]
  72. 780 [139]I[178]20[167]840
  73. 790 [139]I[178]94[167]R[178]R[170]1:SS[178](SS[171]1000)[172][171](SS[171]1000[177].):[141]860:[137]360
  74. 800 [139]I[178]95[167]870
  75. 810 [139]I[179]65[176]I[177]90[167]740
  76. 820 IN$[178]IN$[170]I$:[153]I$;:[139][195](IN$)[179]SL[167]740
  77. 830 [142]
  78. 840 I[178][195](IN$):[139]I[167]IN$[178][202](IN$,1,I[171]1)
  79. 850 [153]:[153]:[153]"ONONON"IN$" CMD";:[137]740
  80. 860 [153]"LOAD"[163]12)"NEW WORD COMING!":[129]T[178]1[164]3000:[130]:[142]
  81. 870 [153]"LOAD":[128]
  82.